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Winning Christmas Card Program by S. Hansen generates snow flakes and old English lettering. See page 7 for contest results 
and page 10 for the program listing. 



4051 Plots Roads in Australia 

by E.S. Webber 
Sydney, Australia 

(At the request of TEKniques, Laurie, Montgomery and 
Pettit Pty. Ltd., consulting engineers and Tektronix 
Australia customers, obligingly subitted the following 
article through Tektronix Australia.) 

Our most ambitious graphics effort so far is the perspec- 
tive plotting of a road. Our client had questioned the sight 
lines and aesthetics of a section of a country road, straight 
in plan, where the vertical curves in our design were not 
continuous. They thought the effect might be a "kink" at 
the junction of the straights and the curves. The object of 
plotting the perspective of the road, therefore, was to 
investigate this possibility, and demonstrate if possible 
that the sight lines would have a smooth transition. 

About two kilometres of road were critical, and cross 
sections were available every 25 metres. Fourteen points 
were used to fully define each cross section, including the 
standard template defining embankment and cutting 



slopes. Since not all the points appeared on every section, 
some were doubled up in order to keep the sequence the 
same. (See Fig. I.) 
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Fig. La. Cross section— all embankment. 
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Fig. Lb. Cross section — all cutting 
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Fig. Lc. Cross section — half-and-half cutting and embankment. 

3D-Data for the perspective plot was generated by an 
initial program (ROADSECT) which stores the standard 
cutting and embankment templates. For each cross 
section, it is then necessary only to enter four elevations: 

1 . Ground level a standard distance, say 1 5 metres left 
of centreline (point 1) 

2. Ground level at centreline (point 14) 

3. Ground level 15 metres right of centreline (point 
13) 

4. Road formation level at centreline (point 7) 

ROADSECT then checks at each cross section whether 
the road is all in cutting, all in embankment, or one side in 
and one side out; and then generates the 2-D data for all 
the other points, and stores it in a tape file. Sections were 
at regular intervals, so the Y dimension was not stored. 
There was no requirement for horizontal curves, road 



junctions, or other complications, but a little further 
effort in programming could accommodate these. 

The second program is an adaptation of the perspective! 
plotting routine given in the "PLOT 50 Introduction to 
Graphics Programming in BASIC" manual. The "draws" 
were set to connect points on consecutive cross sections 
having the same array number i.e., all point sevens were 
connected, all point eights, etc. Finally, the cross section 
was drawn for the end closest to the "camera." 

Once the data was prepared by ROADSECT, the 
ROADPERSPECT program allowed input prompts to 
select at will: 

The number of cross sections plotted 

The number of repeat plots, and the distance incre- 
ment between each repeat 

The eye location (3 coordinates) 

The perspective centre (3 coordinates) 

Forward or backward view along the road. 

When the most effective viewpoint etc., had been 
determined after several screen displays (some recorded 
on the hard-copy unit), the program was amended to 
create a plot on a Hewlett Packard 7202 plotter (bought 
previously, not in preference to the Tektronix plotter) 
using the Datacom interface. Removal of some hidden! 
lines was achieved by watching the screen display and 
switching the plotter on and off at appropriate times. (The 
plotting speed was rather slow: about 10 minutes for each 
example shown.) Also, the program was modified so that 
the point-plot feature of the plotter was activated for the 
road centreline, and 50 m marker posts were drawn on 
the hard shoulder, each one metre high, thus giving a 
better feeling of scale (Fig. 3). 




Fig. 2. Simulated view from driver's eye at 1.5 (x), 3395 (y), 892.97 (z) 
looking to -1.5, 3325 and 391.5. 
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Fig. 3. a. Stereo left view— eve at -30 f.x), 4090 fyj, 900 (zj i 



Fig. 3.b. Stereo right view— eve at -29 (x), 4090 (y), 900 (z) metres. 
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Fig. 4. Goulbourn to Pejar Dam Road — eye at 10 metres above and to 
left of centreline. 
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Views were produced from many different viewpoints. 
Initially, the eyeline of a driver of a car was simulated as 
he drove down the road in each direction. The results of 
this were a little disappointing (Fig. 2) because points 
more than a hundred metres away merged to a single blob 
on the screen. A much more explicit effect was obtained 
by moving the eye point (in response to an input prompt) 
about 10 metres up and 30 m to one side of the road, even 
though it is unlikely anyone would see the view from such 
a position. 

Finally, stereo pairs were made by means of a 1 metre eye- 
shift. When viewed through a stereoscope, the landscape 
popped into view very effectively, with the road superim- 
posed. 

Another program developed for the 4051 is RESLAG, a 
Reservoir Flood Routing Program. This program is 
capable of routing a flood through a storage area, with the 



outflow initially controlled by pipe capacity and later by 
spillway capacity if the water level rises above the spillway 
crest. Any form of outflow is accepted; variable water 
surface area is assumed. 



The program optionally supports a printer and/ or a hard- 
copy unit. It will output time, infow, outflow, depth, area, 
and volume, along with maximum depth and outflow. 
The program will also plot input and output 
hydrographs. 

In its present form, the Road Plotting Program is most 
useful for straight roads, but can be modified. Both will be 
upgraded for prospective customers. Both the Road 
Plotting Programs and the Reservoit Flood Routing 
Program may be purchased from Laurie, Montgomery, 
and Pettit Pty, Ltd. Their address is K.M.S. Building, 8- 
24 Kippax St., Sydney, N.S.W. 2010, Australia. 



Computer-Aided Design 
Contest 

Do you have a 405 1 program for computer-aided design? 
Or, have you been thinking about writing one? Weil here's 
contest news for you! Send in any 4051 program for 
computer-aided design to TEKniques. Your program can 
be for circuit board design, ship hull design, mechanical 
parts design, kite design — anything that you'd like to 
design. 

Programs must be submitted on a tape cartridge, and 
must be accompanied by program documentation and a 
submittal form and order form for your exchange 
programs. All programs will be entered into the 4051 



Applications Library. Each entry will receive the usual 
new tape with three programs of your choice, so you can't 
lose. 

The First Prize winner will receive 15 new tapes and 15 
programs from the library. The Second Prize winner will 
receive 10 free tapes and 10 programs from the library. 
Third prize is 5 tapes and 5 programs. 

Deadline for entries is March 31, 1978. Send your entries 
to: 4051 Applications Library, Tektronix, Inc. Group 
451, P.O. Box 500, Beaverton. OR 97077 E?X~~~' 



Survey Provokes 
Suggestions, Criticism 



A form was distributed with TEKniques Vol. 1. No. 6. 
questioning 4051 Applications Library members about 
the services of the .Library. Over 279c replied: their time 
and remarks are greatly appreciated. 

Of those who replied. 41% rated TEKniques as Very- 
Useful and 59% as Useful. There were no bad marks (Not 
Useful). The Programming Tips were the favorites, with 
"How To Do It" articles rating a close second. Following 
in order of popularity were Applications and Product 
articles. Abstracts and Software Notices were less pop- 
ular, but suggestions for improvement were made. 

The program library received an even split between 
Useful and OK. However, 40% of those responding 
couldn't find programs applicable to their needs, and 
wrote their own programs. Programs desired by members 
had engineering leading the field, with the scientific group 
right behind. Graphics and utility programs (both men- 
tioned often to be in the form of subroutines) followed 
closely, with business behind them. Also up for considera- 
tion were games, interfacing packages, military tactics 
and tutorial programs. 

Some suggestions for improving TE Kniques have already 
been acted upon. Several readers suggested printing 
articles without breaking their continuity, by continuing 
each article on an adjacent page. This is now being done. 
Abstracts received heavy criticism, most of it directed to 
their briefness. This has been improved with better (and 
lengthier) descriptions, along with inclusion of the 
number of statements in the program. 

However, several suggestions can only be implemented 
with your help. These suggestions include more 



applications articles, programming tips, and interfacing 
articles. TEKniques would love to publish your 
application— well even write the article — but we must 
hear from you first. Any many of you may have a . 
program tip that would benefit other readers. After all, ^ 
ingenuity runs rampant among programmers. Several I 
articles have been published recently on interfacing the 
4051 with other equipment, and more are to come. But 
we'd like to publish more about how you are actually 
interlacing your 4051 with equipment; pictures or 
diagrams would be welcome. 

Lack of program documentation seemed to be the 
stumbling block for 52 members who would like to 
contribute programs to the Library. Time, as always, is 
the main factor and any methods anyone has for speeding 
up the process or making it less painful will be published 
in TEKniques if you'll send them in. 

Many of your replies included compliments, which are 
always nice to receive. One comment suggested raising the 
editor's salary. Somehow this particular questionnaire 
floated to the top when the boss wanted to look them 
over, but he managed to retain his usual taciturnity. 



Drop us a postcard or write us a letter. Tell us if you have 
an application and give us a telephone number so we can 
call and get the details. We want to hear from you — 
suggestions or criticisms. Don't hesitate to pass them 
along. 



The 4051 Applications Library address is: Tektronix, 
Inc., Group 451, P.O. Box 500, Beaverton, OR 97077. 

SETHI 



( 



) 




Tektronix announces its first IEEE-48S interfacing Digital Processing Oscilloscope (DPO). 4051 computing power interfaced to 
programmable instrumentation enhances the ability to anaivze the digitized waveforms provided by the DPO. 

) 4051 And DPO Constitute Waveform Processing System 
Through New Interface 



) 



By Dale Aufrecht, Tektronix SPS Engineering 

The Tektronix Digital Processing Oscilloscope (DPO) 
has already proven itself as a general waveform process- 
ing instrument. Now there is something new for the DPO 
— a special product that utilizes the 405 1 Graphic System 
to boost its capabilities into the realm of ATE (Automatic 
Test Equipment) systems. This new product is the 
P7001/IEEE 488 Interface (part no. 021-0206-00). 

The P7001/IEEE 488 Interface conforms to IEEE 
Standard 488-1975, "IEEE Standard Digital Interface for 
Programmable Instrumentation". This interface allows 
the DPO to be used with a controller compatible with 
IEEE 488. The Tektronix 4051 Graphic System serves 
ideally for this purpose. 

As an IEEE 488 device, the DPO can be a talker only or a 
listener only. When it is a talker the DPO can send 
digitized waveforms, readout information, and its current 
device status to the system controller or other IEEE 488 
device. As a listener it can receive data and commands 
from the system controller or another IEEE 488 device. 
The 4051 controls the talking and listening functions in 
the system. 



Interfacing occurs within the P7001 Processor section of 
the DPO. The P7001/IEEE 488 Interface is a dual-card 
assembly that is installed in the interface slots of the 
P700 1 . All necessary power for the interface is taken from 
the P7001 Power Supply via the Main Interface Board. 
Thus, converting the DPO to IEEE 488 hardware 
compatibility consists of little more than putting a card 
into a slot and throwing a few switches to set a device 
address. With appropriate system-controller software, 
the DPO becomes fully compatible with other IEEE 488 
instruments. The driver software was written specifically 
with the 4051 Graphic System in mind. 

Programming information is given in the P7001 IEEE 
488 interface instruction manual (part no. 061-1439-00). 
Complete examples are provided for using a 4051 
Graphic System as the DPO system controller. With the 
4051 interfaced to the DPO (via the P7001/IEEE 488 
interface) you have a powerful yet economical waveform 
processing system. EST , • i 



4907 FILE MANAGER IS A POWERFUL GRAPHICS AID 



By Les Brabetz and Gary P. Laroff 

The last issue of TEKniques (Vol. 1 No. 9) introduced the 
4907 intelligent flexible disc mass storage unit for the 
4051. A SORTing program was also included in that 
issue. This month begins a series of articles on powerful 
graphics handling routines made possible by the large 
direct access storage capability and multiple-level file-by- 
name library structure supported by the 4907. Just as 
numerical records can be accessed in any order on the 
disc, so can graphic entities be stored and retrieved. 

Consider a large data base, perhaps the high resolution 
map of the United States in Fig. 1 . It might be desirable to 
plot the entire map. In this case all of the coordinates in 
the data base are required and can be read sequentially. 
This is as easy and convenient to do with data stored on 
magnetic tape as it is with disc storage methods. But what 
if only a subset of the map is desired? How is it possible to 
quickly locate those coordinates that will be plotted in the 
desired map area, and discard those that fall outside the 
boundaries? The file library system available on the 4907 
is designed to offer solutions to such graphic applications. 

The data base consists of about 3000 X,Y pairs and takes 
about four minutes to display. The objective is to store the 
data so that any map area can be chosen and quickly 
displayed. The data base designs are described in this 
article. Succeeding articles will present a program to 
construct a segmented data base from an existing 
sequential data base and another program that selects the 
segments to display. 

The map as originally digitized can be displayed with a 
number of DRAW commands and MOVE commands. 
The data is stored as a series of coordinates that can be 
displayed with a MOVE to the first coordinate pair and 



an array DRAW to the remaining coordinates. Because 
each of these data sections consists of a different number 
of coordinates, the number of coordinate pairs is also 
stored. The data format is: 



N, Xi, Y,, X 2 , Y 2) 



A n , Y n 



where N is the number of coordinate pairs. The data base 
could be read and displayed from either tape or disc with 
similar programming: 



FROM TAPE 

109 READ (?33:N 

110 DELETE X,Y 
120 DIM XCN^Y<M> 
138 READ C"33:X,Y 



FROM 4907 



:H 



108 READ #1: 

118 DELETE X,Y 

129 DIM X<N>,Y(N> 

138 READ #1:X,Y 



These arrays can then be displayed by a MOVE to the first 
point and a DRAW for the entire array: 



148 M0ME X< 
158 DRAW X, 



1 > « Y < 1 > 



All of the arrays are READ and displayed in this manner. 
The data base consists of 30 arrays containing about 3000 
coordinate pairs. 

This data base is not optimized for displaying subsection^- 
of the map, With this filing method, four minutes arf^ 
required to display any map section because the 4051 
must: READ- .every ..data pair and "clip" all graphics that 
would appear outside the designated window. 

A far superior technique would be to divide the map into 
many smaller sections. The program could then look at 
the desired plot boundaries and choose those map 
sections required for the display. The random file access 
feature of the 4907 makes this quite practical. For the 



Fig. 1. Master file of digitized map with arbitrary grid values. 



Fig. 2. Map data base illustrating segment division lines to produce 96 
map segments. 
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purposes of this description, 96 segments created a data 
base that could quickly display any section of the original 
map. Fig. 2 shows the map as segmented into eight 
divisions horizontally and twelve vertically. An attempt 
was made to select a segment definition which would 
create an equal distribution of coordinates between the 
file segments. The fine detail required by the eastern 
coastline and minimum detail required for western state 
boundaries caused the density of graphic coordinates to 
be far greater toward the eastern part of the map. Smaller 
segment definition was required in some areas in order to 
attain reasonably equal vector densities in each segment. 

Each segment is a rectangle and must contain the 
coordinates of intersection of any map lines with its 



Christmas Card Contest 
Results 



borders. This is a substantial task; the program that 
builds this segmented data base will be discussed in the 
next issue. 

Once the segmented data base is completed (as 4907 files 
USMAP/SEG1 through USMAP/SEG96), a simple 
program can be used to access the files, then quickly 
display any segment of the map. In this manner, one can 
rapidly access and display any section of a large data base 
(such as a map) and then use custom routines to add such 
information as county boundaries, major highways or 
weather information. E3ZZZI] 
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The winner of the Christmas Card Design Contest is 
shown on the front page of this issue of TEKniques, The 
program, which draws six random snowflakes and the 
greeting "Merry- Christmas" in old English type, was 
submitted by S. Hansen of Los Angeles, CA. The 
program also allows the option of printing names on the 
cards as well. 



^EDITOR'S NOTE 



Two other programs that were submitted are also 
included in this issue. "Random Snowflakes" was sub- 
mitted by Mark Mahall, a Tektronix S.A. "Christmas 
Card" was submitted by Dr. P. C. Holman of the 
University of Wisconsin, Stevens Point. TEKniques 
wishes to thank all entrants for their efforts. Happy 
Holidays! ESZHI 



There's an Asterisk on Your 
Mailing Label 

As prior issues of TEKniques have mentioned, it is the 
desire of the TEKniques staff to provide TEKniques to 
everyone who wants it. However, we don't want to mail it 
to those who don't want or use it. Therefore, non- 
members who have been on the mailing list for longer 
than four months will be candidates for deletion from the 
distribution list. An asterisk has been placed on those 
mailing labels to denote this. If your mailing label carries 
an asterisk and you wish to continue to receive TEKni- 
ques, please complete and mail in the membership card 
accompanying this issue. If you don't receive Vol. 2, No. I 
by the middle of February, chances are your name has 
been dropped. 

More Than One Copy 

If you desire more than one copy of TEKniques for your 
j office, you'll have to subscribe someone else to TEKni- 
ques. Our system has been designed to delete 
duplications. (For those of you who are getting two or 
more — the system is not perfect!) 



Publication Deadlines 

Great effort is being made to place and keep TEKniques 
on a six-week publication schedule. For this reason, the 
deadline for submitting articles is approximately six 
weeks prior to the publishing date. The following 
schedule will aid those of you planning to send in those 
useful tips and articles. 

Copy Publish 

TEKniques Deadline Date 



Vol 2 No 1 


Dec 5, 1977 


Jan 15, 1978 


Vol 2 No 2 


Jan 15, 1978 


Mar 1, 1978 


Vol 2 No 3 


Mar 1, 1978 


Apr 15, 1978 


Vol 2 No 4 


Apr 15, 1978 


Jun 1, 1978 


Vol 2 No 5 


Jun 1, 1978 


Jul 15, 1978 


Vol 2 No 6 


Jul 15, 1978 


Sep 1, 1978 


Vol 2 No 7 


Sep 1, 1978 


Oct 15, 1978 


Vol 2 No 8 


Oct 15, 1978 


Dec 1, 1978 



Catalog Reminder 

If you have not received a 4051 Applications Library 
catalog of abstracts, write Tektronix, Inc. Information 
Display Group, P.O. Box 500, Group 45 1 , Beaverton, OR 

97077. f3T~E] 




2. To convert binary to decimal: A=ASC(A$); you now 
have the 67 back in numeric form. 

3. To fetch, increment by 1 and save back (perhaps in a 
string of counters, where it is assumed that P=9 
because you want the 9th counter in the string; BS is a 
string of 1 byte counters and AS is a 1 byte string): 
A$=SEG(B$,P,1) to extract the counter byte at 
location P; A=ASC(A$) to convert the counter to 
decimal; A$=CHR(A+1) to increment the counter and 
convert back to ASCII/ Binary; BS=REP( AS, P,l) to 
save the updated counter back in the counter string. 
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Binary Counters in BASIC 
(Save Memory Too) 

by Leland C. Sheppard 
Sunnyvale, CA 

During the rewrite of the Flowchart Program (51 00- 
8005 ' 1) it became evident once again that necessity really 
is "the mother of invention/' 

One of the desired enhancements to the original 
Flowchart Program (51/00-8005/0) was the addition of 
page numbers to the Program's branch table. This would 
serve as an aid to quick indexing into the flowchart. The 
original program used alpha page numbers; this limited 
the chart to 52 pages before a program error would occur. 
(Some programs exceed that amount.) The technique that 
is described here is a little slower than equivalent numeric 
methods, but really saves memory and overcomes the 52 
page limit. 

A one-character field was already being used for from/ to 
page references (corresponding to the from/ to entries in 
the branch table). The aim was to get the Flowchart 
Program to run in a 16K 4051, so limiting the field to one 
character was important. The problem at hand was this: 
how can you count beyond nine in one byte? 

The solution is to treat the character as an ASCII Binary 
field. This allows a count to 127, which would be plenty 
for a page number value. The technique that is used to 
make that one-byte field a binary value is described in the 
following. (Note that the same technique can be used as a 
binary counter.) 

1. To convert a decimal number to binary: 
A$=CHR(A)— the "ASCII representation" of A is 
actually the decimal value stored in binary; the 4051 
software will now allow you to store that value (AS) in 
another string (of counters, page numbers, etc.). For 
example, if the value of A is 67 decimal (as in say Page 
# 67) then the CHR function would represent it as the 
character "C" but the decimal equivalent is still 67. 



Of course you can count to 127 in 1 byte since the 4051 
thinks it's dealing with an ASCII character, but the 
technique is appropriate for many applications. 

If 127 isn't great enough, the technique can be expanded 
to count larger values or store larger values. This will still 
save considerable memory over string or numeric techni- 
ques. The technique is as follows: 

1. Use two bytes per counter where the right hand byte 
will represent a value from 0-127 and the left hand 
byte will represent multiples of 128; the sum of the two 
(after multiplying the left hand byte by 128) will yield 
your number. (Assume CS is a 1 byte string, P points 
to the counter number of field number desired, say 9, 
and BS contains the counters as before.) 

1 A$=SEG(B$,P*2-1,1) to get the left hand byte of 
the counter 

2 C$=SEG(BS,P*2,1) to get the right hand byte of 
the counter 

3 A=ASC(A$) to convert the "128V to decimal 

4 G=ASC(CS) to convert the "units" to decimal 

5 IF C is less than 127 THEN 10 to see if I can add to 

C 

6 C$=CHR(0) I can't, it's at maximum so set to zero 

7 AS=CHR(A+1) and add one to the "128V position 
and convert 

8 A$=REP(BS,P*2-1,1) to save the "128V back in 
BS 

9 GO TO 1 1 to skip the next statement 

10 C$=CHR(C+1) to add 1 to the "units" position 
and convert 

11 CS=REP(B$,P*2,1) to save the units counter. 

Effectively, we've created a base 128 numbering system so 
that you can count to 16K-1 (16383 or 16256+127) in 2 
bytes instead of 5 using strings or 8 using numeric 
variables. (A 3 byte setup would yield a total count of over 
2,000,000.) 

It is a slower technique than straight numeric, but if you 
have critical memory situations this technique may be 
important to you. 
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Speeding Up Trigonometric 
Functions 

by Herman D'Hondt 
Tektronix Australia 

Speed can be improved appreciably in situations where 
sines and cosines must be repeatedly computed in a 
FOR/ NEXT loop. This can be accomplished using the 
following well-known sum formulas: 

sin(a + b) = sin a cos b + sin b cos a 
cos(a + b) = cos a cos b - sin a sin b 

Accuracy is slightly diminished using this method. 



Usual Method 


Ida 


SET D€CR€ES 


ne 


FOR 1-9 TO 369 STEP 2 


129 


X-SIHCI) 


130 


Y«C0S<I) 


140 


MEXT I 


158 


P9INT X,Y 


P-UN 




a 


1 


Speed Method 


180 


SET DECREES 


lid 


*»SIN<2) 


128 


B-C0SC2) 


138 


X-9 


148 


Y-l 


158 


FOR I-i TO 169 


168 


Xl»XtB«-A*Y 


178 


Y1«Y*8-X*A 


188 


X»X1 


199 


Y«Y1 


289 


NEXT I 


219 


PRINT X.Y 



RUN 
-4.3529?4237E-13 9.999995955959 



Deleting Parentheses to Save 
Memory 

by Aaron Eisenbach 

If you are running a program that was originally written 
for a Hewlett-Packard calculator (such as an H. P. 9821), 
you may be using more of your 4051 memory than you 
need to. The H.P. 9821, for instance, identifies simple 
variables as R(21), R(5), R(56), and so forth. The 
parentheses are not required for simple variables in the 
4051. You can save lots of memory by deleting the 
parentheses and using variables such as A-Z, A1-A9, Bl- 
B9, etc. 

In one example, a 900-register program for an H.P. 
machine, one thousand bytes of memory were saved by 
deleting unnecessary parentheses. 



Branching Techniques 

by J. L Aubel 

University of South Florida 

Branching on Yes-No 

Here's another simple method for branching on a Yes-No 
response. (Other methods were published in TEKniques 
Vol. 1 No. 8.) 

188 DIM Ct<i> 

488 PKI -Do you yish to continue "I 

418 INP C$ 

428 GO TO <C$« - Y-)4t OF 588,699 

588 REH Ho Process inf 

688 REM Ye* Procesiinf 

Branching for Output 

A variation of the above method works nicely for 
assigning output to the screen or the plotter. (Assume that 
the plotter is set to Device Address 1.) Use the following 
method: 



488 PRIHT •Output to scree* or plotter? (Enter S or P> "J 

418 INPUT Cf 

428 H«32-31*<CS« ,, P-) 



458 PRI **: 



Intro to Graphic Manual Valuable 

by Ken Cramer 

Look through the Introduction to Graphic Programming 
in BASIC manual (070-2059-00) supplied with your 405 L 
If you are a typical programmer, you probably skip over 
"introductory" manuals and go right to the reference 
manuals. In the case of the Graphic Programming 
manual, you could be missing a lot of helpful hints. 
Sections three through eight have many examples and 
explanations that can give you valuable insight and a 
starting point for algorithms you need. Just knowing 
where to look things up can save many hours of 
programming effort. Take an hour to look through these 
sections; it's worth it. E5 ; -±- 1 




-12,-64,9,2,-11,4,-18,6,-18 
-9,5,-9,7,-19,8, -12, -64, 9, 3, -9 



ttttt SNOWFLAKES 8V S. HANSEN ttxit 

output default is to t he 4951 graphic screen. to output 
to plotter, fpess user definable key ii. 

statements 1899 to 1999 contain the code for printing 
the ind:"U-'.ihl names -sic and gweh'. 

suggested code to substitute your own line of greeting 
following merry christmas': 

DEL 1898,1999 

131 PRINT 'ENTER LINE OF GREETING' 

132 INPUT A* 



2311 X«65-LEN<Af> 

23t2 Y = 47 

2313 POP .1*8 TO 9.3 STEP 8.1 

2314 PRINT »T f 2i:XM,Y*I 
231*; PRINT fT:A* 

NE/T I 



1 REH SHOWFLAKE DESIGN 

2 REM AUTHOR - 3. HANSEH. LOS ANGELES, Cm. 

3 GO TO 188 

4 IHIT 

5 T-t 

6 GO TO 118 
189 1MIT 
185 T-32 

118 SET DEGREES 

128 WINDOW -34,34,-34,34 

138 PAGE 

148 FOR KM TO 6 

159 READ N,N 

168 DATA 8,38.25,55.65,35,98,38,65,5,25,5 

ITS VIEWPORT N,N+49.n,M+48 

138 A*26 

198 B«RND*-rt8.4*9.3 

288 FOR 1*8 TO 25 
219 C-0.366025»A 
228 D«0.5IA 

238 FOR J»l TO 6 
248 ROTAfE 60«J 
258 HOUE IT: 8, 8 
268 RMO'»E 8T:8,I 
278 RMOUE 0T:C,D 

289 PDRAW 8T:-C,-D 
238 ROPAW 0T:-C.D 
298 NEXT J 

319 A«RHDf-l IU6-I)*B 

328 NEXT I 

339 NEXT k 

348 WINDOW 9. 138,9, 199 

358 DATA 9,8.-64,-64 

368 DATA -14. 14, -6, -8, -?, -7, -8,-3,-8,-3,-19, -3, -11 , -2,-11 ,8 

379 DATA -19,-1,-8,-1,-8,3,-64,8,-7,-6,-7,1,-64,8 

388 DATA -10,-2,-7,-2,-64,9,-6,-8,-6,8,-7,2,-8,3,-64,8 

398 DATA -13,9,-11,7,-9,6,-7,6,-3,7,-4,7,-3,6 

498 DATA -64,9,-18,7,-7,7,-5,8,-64,9,-13,9,-11,8,-8,8 

418 DATA -6. 9, -5, 9,-4, 8, -3, 6, -64, 9. -6, -8, *2, -12 

428 DATA 2,-8,2,5,3,7,4,7,-64,9,-2,-11,1,-8,1,6 

438 DATA 8,7,1,8,2,7,1,6,-64,8,-2,-2,1,-2 

440 DATA -64, 0,-4, -18, -3, -18, 8,-7, 8, -3, -3, -3,-64, 8, -3,-1 

450 DATA 8,-1,8,6,-1,7,1,9,4,7,3,6,-64,8 

4ct« DATA 2,-8.6.-12,18,-8,10,5,11,7,12,7,-64,0,6,-11 

479 DATA 9,-8,9,6,11,8,-64,0,6,-2,9,-2,-64,0 

489 DATA 4,-10,3,-18,8,-7,8,-3,3,-3,-64,8,3,-1,8,-1 

498 DATA 8,7,10,9,12,7,-64,0,-3,-18,-3,6,-64,0 

500 DATA 5,-10.5,6,-64,-64 

510 DATA -8.6,-4,-3,-4,6,-6,7,-5,7,-3,8,-2,9,-64,0 

528 DATA -3,-3,-3,7,-1,8,-64,0,-2,-3,-2,6,8,7 

530 DATA 1,7,-1.8,-2.9,-64,0,-4,-3,0,-4,2,-5,5,-1 

548 DATA 3,9,-2.3,-64,0,1,-4,4,-1,-64,0,-2,-3 

550 DATA 9,-4,3,0,-64,-64 

560 DATA -8,6,-6,-3,-5,-3,-4,-2,-4,6,-6,7,-3,7,-3,8 

5^8 DATA -2,9,-64,0,-5,-4,-3,-3,-3,7,-1,8,-64,8 

588 DATA -6,-3,-4,-5,-2,-3,-2.6,8,7,1,7,-1,8,-2,9 

590 DATA -64,9,-2,-3,2,-3,3,-4,5,-3,6,-3,-64.9 

696 DATA l,-4,2,-3,4,-3,-64,0,0,-4,2,-2,4,-2,6,-3 

619 DATA -64,-64 

620 DATA -9,9,-7,-3,-6,-3,-3,-2,-3,6,-7,7,-64,0,-6,-4 
630 DATA -4,-3,-4,7,-2,8,-64,8,-7,-3,-3,-3,-3.-3 

648 DATA -3,6,-1,7,0,7,-64,0,-7,7,-6,7,-4,8,-3,9 
650 DATA -2,8,0,7,3,6,-64,0,3,-3,4,-4,6,-3 
668 DATA 7, -3,5. -2, 5, 10,4, 13, 2, 13, 9,16, -1,15, -3. 14 
670 DATA -5,14.-64,0,2,-4,4.-3,4,10,-64,0,1,13 
68* DhTA -1,14,-2,14,-64,0,3,-3,1,-3,3,-2,3,8,4,11 
-,96 DhTA 4,13,-64,8,2,13,1,14,-1,13,-3,13,-3,14 

788 DATA -64,-64 

710 DATA -8,8,-64,-64 

720 DATA -13, 11, -4, -11, -6, -10, -8, -8, -9, -6, -10, -3,-18, 1,-9, 4 

? 30 DATA -8,6,-5,8,-2,9,1,9,4,8,6,7,8,3 

748 DATA 9,3,-64,9,-9,-7,-9,-4,-9,1,-7,3,-4,7,-1,8 

759 DATA 2,8,5,7,-64,8,-4,-11,-6,-9,-7,-7,-8,-4 

769 DATA -0,8, -?, 3, -4, 6, -t , 7, 2.7,3, 6,7,3,9, 3 

V9 DhTA -64,8,-2,-8,-2,4,-64,8,-1,-8,-1,2,-64,8 

789 DATA 9, -9, 8, I, -1,3, -2, 4, -64, 8, -2, -8, 8, -9, 3. -12 



^c r, H T H 5,-1 t, 7, -11, 9, 

900 DATA -64, 9, 1,-19,3, 

81o DATA 5,6,-64,-64 

*20 DATA -9,9,-6,-19,-3,-8,-5,6,-7,7,-6,7,-4,8,-3,9 

839 DATA -64,9,-4,-8,-5,-19,-4,-11,-4,7,-2,8,-64,9 

849 DATA -6,-19,-3,-12,-3,6,-1,7,-3,9,-64,8,-3,-2,8,-3 

858 OATH 2,-4,3,-5,4,-4,6,-3,7,-3,3,-2,5,7 

86A DATA 7,9,2,11,-64,9,2,-4,4,-3,4,7,3,9,-64,9 

879 DATA 9,-3.1,-3,3,-2,3,7,2,11,2,14,3,16 

o80 DATA 4, 16,2, 14,-64,-64 

898 DATA -5, 5, 9, - 1 2, -2, -10, 8, -9, 2, - 10, 0, - 12, -64, 0,0, - 1 1 

999 DATA -1,-10,1,-10,0,-11,-64,0,8,-5,-1,-4,-3,-3 

919 DATA -1,-2,-1,7,1,9,3,7,-64,0,0,-2,1,-3,0,-4 

929 DhTA -1.-3,8,-2,8,7, 1,8,-64,8,9,-3,1,-4 

938 DhTA 3,-3,1,-2,1,6,2,7,3,7,-64,-64 

949 DATA -8,8,-5,-3,-5,1,-3,2,3,2,5,3.3,7,-64,0 
958 DATA -4 , -3, -4 , t , -64, 0, 4, 3, 4, 7, -64, 8, -2, -4 
969 DATA -3,-3,-3,1,-1,2,-64,8.1,2,3,3,3,7.2,8 
979 DATA -€4,0,-5.-3,-2,-4,9,-3,2,-4,4,-4,5,-5 

939 DATA -64,0,-1,-4,1,-4,-64,0,-2,-4,0,-3,2, " 
999 DhTA -64.8,5,7,2.8,0,9,-2,8,-4,8,-6,9 
1999 DHTA -64,9,1,8,-1,8,-64,0,2,8,8,7.-3,7,-6,9 
1 e 18 DATA -64,8,5,-5,4,-3,2,8,-3,5,-6,9,-64,-64 
1029 DATA -5,5,-2,-10,-1,-8,-1,6,-3,7,-2,7,8,8,1,9 
1638 OATA -€4,8,0,-8 

1848 DATA -2, -18. . „. 

1859 DATft -4.-5,-1,-5,-64,9,1,-5,4,-5,-64,-64 

1866 DhTm -13,13,-11.-3,-19,-3,-9,-2,-9,6,-11,7,-18,7,-8 

-7,9.-64,9,-9,-4,-8,-3,-9,7,-6,8,-64,0 

-11,-3,-9,-5,-7,-3,-7,6,-3,7,-7,9,-64,8,-7,-2 

-4,-3,-2,-4,-1,-5,1,-3,1,6,3,7,1,9 

-64,8,-2,-4,8,-3,8,7,2,8,-64,8,-4,-3,-3,-3 

-1,-2,-1,6,-2,7,0,8,1,9,-64,0,1,-2 

-4,7,-5,8,-4,18,-3,11,-3,9,-2,9,6 
,7,-64,8,6,-4,8,-3,8,7,9,8 



-3,4,- 



,-1,-10,0,-11,9,7,2,0,-64,0 
12,1,6,3,7,4,7,2,8,1,9,-64,0 



1978 DATA 
1089 DATA 
1098 DATA 

1109 r-H 

1118 DATA 

1120 DATA 4,-3,6, 

1 138 DATA 19,7, 11, 

1146 DATA -64,9,4,-3,5,-3,7,-2,7,7,9,9,11,7,-64,-64 

1150 DAT& -8,9,-2,9,-4,2,-3,4,-5,6,-4,8,-2,9,8,7 

1160 DATA 3.6,-64,0,-3,4,-4,6,-3,7,-1,8,-64,8 

1178 DATA -4,2.-4,4,-3,6,-1,7,8,7,-64,8,-4,-2,-2,-2 

11-59 DATA 1,-3,3,-4,4,-3,6,-3,3,-2,3,6,6,7 

II90 DATA ''.7,-64,8,-3,-4,-4,-3,-1,-3,-64,9,2,-3,5,-3 

1209 ;-TA 4,-4,4,7,3.8,-64.0,-5.-3,-3,-5,-2,-4 

1210. DhTA 8,-3,3,-2,3,7,3,9,7,7,-64,8,-3,-3,8,2 

1220 DATA -64,-64 

12:8 DATft -7,8,5,-6,6,-6,7,-7,6,-4,5.-6,3,-7,8,-7 

1240 DATA -2,-6,-3,-3,-3,-3,-2,-2,3,1,4,2,-64,0 

1250 DATA -3,-4.-2,-3.3,8,4,1,4,4,3,5,1,6,-2,6 

'.260 OATA -4,5,-3,3,-6,6,-5,5,-4,3,-64,-64 

1279 Ch'h -5.5,1,-7,1,-6,2,-6,2,-7,1,-7,-64,0,-4,0 

1280 DATA -3,-2,-2.-3,0,-3,1,-2,1,0,0,3,0,5 
1298 DATA 1.6,-64,9.-1,-3,0,-2,0,0,-1,3,-1,5,0,6 
■"■- DATA 2,6,3.5,4,3,-64,-64 



1319 DATA 
I 720 DATft 
1239 DATA 

1349 DATA 

1350 DATA 
1368 DATA 
I r^o DATA 
1 289 Dm'm - 

9* (-ATA 3 



3,2.4,1.7,8,9,-64,8,5,-3,3,4 
2,7,9,9.-2, 10,-5,19,-6.9,-5,9.-4,19 
-64,8,3, 1.3.-1,1,-3,-1,-3,-3,-2,-4,-1,-5,1 
-5,3,-4,5,-2,6,0,6,2,4,-64,0,-1,-3 
-3,-1.-4,1.-4,4,-2,6,-64,-64 
-6,6,-64,-64 

-7,8.4,-3,2,4,2.5,3,6,5,6,6,5,7,3 
-64,0, -,-3, 3, 4, 3, 5, 4,6,-64,9,3.1 

1.1,-3.-1,-3,-3,-2,-4,-1,-5,1,-5,3,-4,5 
2,6,8,6.2,4,-64,9,-1,-3,-3,-1,-4,1 
"4.4,-2,6,-64.-64 

9.9,-7,9,-6,-2.-5,-3,-3,-3,-2,-2,-2,-1,-4,6 
64,9,-4,-3,-3,-2,-3,-1,-5,6,-64,8,-2,-1 
2,1,-3,3,-3,3,-2,3,8,4,3,4,5,5,6 
' 3,-3.4,-2,4,0,3,3,3,3,4,6 
3,8,3,-64,-64 
7,8,5,-7,2,4,2,3,3,6,3,6,6,3,7,3 
-64,0,6,-7,3,4,3,3,4,6,-64,0,3,1 
3.-1,1,-3,-1,-3,-3,-2,-4,-1,-5,1,-3,3,-4,3 
-i. 6, 8, 6, 2, 4, -64, 0,-1,-3, -3, -1,-4,1 
-4,4,-2,6,-64,8,3,-7,6,-7,-64,-64 
-7.7,4,-5,5,-6,6,-7,3,-4,4,-6,2,-7,0,-7 
-2,-6,-3,-3,-4,-3,-3,8,-31.3,-4,3,-2,6 



, - i, -3, -4, -J, -3,W»-3» J, -*>» 3, -<:«6 

.5.3,4,4,1,-64,0,0,-7,-2,-5,-3,-3 
-4,8.-4,4.-2,6,-64,0,0,6,2.4,3,1 
-64,8, 1.1,6, 1,-64,-64 

-10, 19.-?, 9, -8, -2, -7, -3, -3, -3, -4, -2, -4,0, 
-5,5,-4,6,-64.8,-6,-3,-5,-2,-3,8,-6,3 
-6,5,-4,6,-3,6.-1,5,0,4,-64,0,2,-3,8,4 
8.5,2.6,-64.0,3,-3, 1,4,1,5,2,6 
3,6.5,5,7,3,8,0,8,-3,7,-3,8,-2,-64,-64 
7,5,-4,3,8,2,2,1,3,0,3,-2,1,-3,-1,-3 
-1,-5,1,-5,3,-4,3,-2,6,0,6 
64,0,-1,-3,-3,-1,-4,1,-4,4,-2,6 



14 9« D 

1418 DATA 
1420 DATA 
1430 DATA 
1448 DATA 
1430 DwTA -64, 
1*68 DATA 6 
1470 DATA 
14 98 DATA 
1490 DATA 
1508 DA T A 
1510 DATA 
15;0 DATA 
1530 DATA 
1548 DATA 
1559 DATA 
1568 DATA 
1570 DATA 
1588 DATA 

1599 DATA 

1608 DATA 

1619 DATA 

1629 OATA 

1639 DATA -3 

1649 DATA 2.5,3,4, 

1658 DATA -64,-64 

1660 UIEUPtfRT 10,129.60,47 

1670 A*-131 

1689 8*339 

1699 RE£ T ORE 350 

1788 FOR 1-1 TO 4 

1718 C0SU8 2929 

1729 NEXT I 

1739 RESTORE 560 

1749 FOR t»l TO 5 

1750 GOSUB 2020 
1760 NEXT I 
1770 RESTORE 560 
1780 GOSUS 2020 
1790 RESTORE 890 
1809 FOR 1-1 TO 5 
IS 16 G0SU8 2929 

1829 NEXT I 

1839 RESTORE 949 

1840 GOSUB 2920 

1850 UIEWPORT 30,100,50.40 
1268 A*-173 
1870 6»345 

1830 RESTORE 1230 
1890 FOR IM TO 7 
1900 GOSUB 2020 
1910 NEXT I 

1920 RESTORE 1360 
1?30 GOSUB 2020 
1940 RESTORE 1520 
1*59 FOR I-t TO 3 
1969 GOSUB 2920 
1979 NEXT I 

1989 RESTORE 1420 

1990 GOS06 2020 
2090 HOME 0T: 
^018 GC TO 2k^ 
2020 PEAD CD 
2930 A«A*C 
20-»9 & = e*c 

2956 WINDOW A.8,-30,30 

2060 READ X.Y 

20"0 IF X*-64 hMD Y--64 THEN 2140 

20fc*0 HO"E *t::v,y 

2090 READ X,Y 

2180 IF X»-64 AND Y--64 THEN 2149 

2110 IF X»-64 AND Y-0 THEN 2170 

2128 DRAW fT:X,Y 

2138 CO TO 2098 

2146 A-A-0 

2159 8-8-0 

2169 RE 1 URN 

2179 PEAD X,Y 

2188 KCuE 0T:X,Y 

2190 uO TO 2890 

2200 WINDOW 0,130,0, 100 

2295 "lEWPORT 0.130.0,100 
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<Li\* 


SET (iEG»EE^ 










2 2td 


HI Ml OH 


li, 


13, -M 


i ie 






?130 


FO» J- I <: 


.9 


10 13 


STFP 


9 


0?! 


22** 


H"- J-3 












?259 


noi»E »T: 


JIC0SM3 


.KtSINUS) 


^2 69 


FOO 1-4- 


TC 


375 STEP 


39 




^iTB 


X- JtCOSc 


1/ 










<r239 


'.'-"IS III' 


I> 










ZZOU 


op*u *t: 


X,Y 










^388 


NE-'T I 












<r3I9 


NEXT J 












>^9 


HONE »T: 












2339 


END 













in in nni n m n m urn urn imr 
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' r ^wrv^s TX^OC s 



. -iCT>o -v 



r r >r«;tu»s txtow son •■: vc. 
•>; •*>/♦< 'v*-. vc * **£> -*"w wri. 
f. ^f ^*C OAT Jf -^hc-vms t.k^oo -xnt r o I*. 
"•■ftr utapcat vunt&AHG, ~«n a_v*i T «ws. ato a 

3PAM, •<.'* *<J51 
N ^ "3P-V DAY -f >«s*MAS TXTCTC 5£M fj WC. 

'IP 'f-T.r^TP'J. --PfT 3CAPCAT PPOGRAK6. TWO 9LAf* 

"VCS. tD A HPAM) •£* * VJbi 
N "Mf. T~^ DA' > >«L"V«ii rrxr-JCMX SEKT r K€ 

c "ve ocu-s t =**?> ■"op 'c*^le~tps. *v«t ae>p- 

> r **Tf>M&. -*0 a^Vfc 'APf3. AMD A 6f)AW 'C* *<J61 
N M TX~ jat ->■ ^Rs-u^i T>-^CNX a?r r -.-5 ^ 

c :-icr*. -v;— t ? r .. -'.f: sa^j r =*per fjp 

, <"Af3.r _ ^PG, "HI 3CAPCAf 3WXRAMS. TW> aLA/* ~AP*3. 

VC A *>Aff. ^W ACftl 

S "'-f T<t?F~> DAT j- -vR!S-Tia»6 TK r fKKX SENT T WC 

j- =V*P ^XP •Ci"3Jf T T?S. -H*T BEARCAT WXRAAC. 
~* r . aLAfh '«5. AfC A cUANS 'FW ACbl 
N • v t DCK"- DA* T -ypiSTUW TX-OOIX sent -o >*•. 
OGKT •_>£ =»»/TFps x<EN yj ' ^ljg . 'It DKTAL 
a.;-fE?S. rvt *Xl: y sj.arp. .-^p .evvSLE^ERS, 

•htt sv«ca* pwx*«>*e. rwc su>f* "a*jes am; a 2Fj»Ci 

r. "t -ff."^ DA* T >«S'-VAAi; Ty^ONX SENT '3 kC 
JU'Ltrfi,. Zt DIGTAL ^<.;-^j?S. r^T .5CLLS Of 



=««? r oip 'Cwir-Tps; n«T aopcA' »ocp>*c, 

TVm 3LA>#( "APTj. VO a t»W<J f£W Affil 
CN rvt -rv^y, WT ,-jr >«5TU»S TTyn»c 9ENT TO 
V€. "Of *nJKN; X'S'TO^S. ^r ^SC Id. CCKf 
.JC ^t^TPS. X/CN DtU'UlVS. SC JJCTAL 
3-3— IPS. f^/t Wli.5 OF ^ajjoj, FOLR 'C*Xt "U«. 
■H*T 3fAPO T ^W/iJA*6. nivo 8L>W T APe3 VC A 
BPAM3 T* *C61. 
* "^ dT»!>(Tw.aAr T •XSSTMAS TtXTWj«r INT tq 

■»€. r_r<o< ^tfo :*3" lKTS, *en trurM, xttkks. 

*♦£ :<SC JCS. DO-r J£ Pt^TOJS. 'r^N 

a»f«? r XR fATOJ— TPS. ^HtT 3tAPCA- =«XRAMS. 
"VC3 =LM* TAP?TJ. VC A SHAAO >VN *f:\. 

vt. -Afi/t ^n^Drr -*P€ jrz. <zx/rn iw 

JfT3. ECHT Jt PCt,-TPS. ST«t?i aCTTEK. IK 
aCTAL a.3TT?S. C^E 3CLLS T '-"+*? r XR "CWS- 
~i' T?3. • v «r 9EAPCAT PPOGRAiye. ~*0 3U«rt< •AFC5. 
A>C A 3RAH3 ^0' *.£;1 



CHRISTMAS CARD plotted from the program of Dr. P.C. Holman 
and his staff of the University of Wisconsin-Stevens Point. 4051 
Applications Library program $51 100-H012 0. (Lerov Character 
Generator) was incorporated as a subroutine to generate the text. 

4 RUN 189 

8 LIST 

9 EHD 

93 REM CHRISTMAS CARD 

96 REM AUTHOR: DR. P.C. HOLMAN, U OF HISCONSIH, STEUEHS POINT 

189 INIT 

118 T-l 

138 LET Ul«5 

148 LET U-2 

138 UIEUPORT 8,138,87,18a 

168 SCALE 4,4 

178 LET 14- t 

188 LET I l*d 

198 REM 

288 HOUE IT: 8, 18 

218 DRAW 8T:8,38 

228 DRAW ffT:268,58 

238 DRAW 8T:268, 19 

248 ORAM tT:8,18 

238 FOR 1-8 TO 268 STEP 268/52 

268 LET U-Il + 1 

278 IF Il«3 OR Il»6 OR 11-18 OR 11-13 OR 11-17 OR 11-28 OR 11-24 THE 418 

288 IF H-27 OR 11-31 OR 11-34 OR 11-38 OR 11-41 OR 11-43 THEN 418 

298 IF 11-48 OR 11-32 THEN 418 

388 MOUE 8T:I,25 
319 ORAU tT'.I,18 
328 MOU€ *T:I,52 

338 IF 1 1-1 OR 11-53 THEH 488 

348 LET U-U+l 

338 IF U<>18 THEH 388 

368 LET U-8 

378 LET Ul-Ul+1 

389 REM 

398 RMOVE 9T:e,6 

488 GO TO 448 

418 REM 

428 HOUE tT:l,39 

438 ORAU fT:I,18 

448 HEXT I 

438 LET 18-268/52 

468 FOR I-I8-2.5 TO 380 STEP ABS<I8) 

478 IF 14-2 OR 14-3 OR 14-9 OR 14-12 OR 14-16 OR 14-19 OR 14-23 THEN 688 

488 IF 14-26 OR 14-38 OR 14-33 OR 14-37 OR 14-48 OR 14-44 THEH 688 

499 IF 14-47 OR 14-51 OR 14-52 THEN 688 

588 IF I4>52 THEH 668 

518 HOUE fT: 1*1,58 

528 DRAU fT: 1+1,25 

538 ORAU fT! 1+4,23 

548 DRAU fT: 1*4,58 

558 RMOUE IT: -2, 8 

568 FOR J-8 TO 1 STEP 8.3 

578 RDRAU fT:8,-25 

588 RMOUE IT:8.5,25 

598 HEXT J 

688 LET I4-I4+1 

618 HEXT I 

628 MOUE fT:l,13 

638 FOR L-t TO 5 

648 FOR I-l TO 18 

658 LET Il-I 

669 REM t SECOND FILE STARTS HERE « 

678 IHIT 

690 T-l 

718 REM 

720 LET A-113 

738 LET Bl-23 

758 B-2 

768 UIHDOU 9,76tB»0,36tB 

770 HOUE IT: 30, 63 

780 COSUB 1030 

798 PRINT tT, 21:33, 93 

099 PRINT tT, 21129, 39 

010 PRINT IT, 21:20, 47 

820 PRIHT tT, 2l;33, 38 



638 PRIHT tT, 21:33, 33 

848 PRIHT tT, 21:33, 28 

830 IF T-12 THEH 888 

e68 PRIHT tT, 21:98,1 

878 PRIHT tT,21M58, 188 

888 PRINT tT, 21:189, 25 

899 PRIHT tT:*FROM OUR COMPUTER" 

988 PRIHT tT,2l: 188,21 

918 PRIHT tT'.'TO YOURS" 

928 LET A-115 

938 LET B 1-2 

958 UIHDOU 8,76)8,8,56*8 

968 MOUE tT:58,65 

978 GOSUB 1838 

988 PRIHT tT, 21:94, 4 

998 PRIHT IT: 'ME LIFT OUR CIRCUITS" 

1888 PRIHT IT, 21M85, 1 

1818 PRIHT 0T:"IN SONG" 

1811 FOR 15-1 TO 1889 

1812 HEXT 15 

1813 HOME IT: 
1828 GO TO 1968 
1838 MOUE IT:A,81 
1848 SCALE 1.8,1.8 
1858 RMOUE f T: 18.3,3 
1868 RMOUE IT:2,18.3 
1878 RDRAU IT:-9.5,4 
1888 RDRAU !T:-1,8.5 
1898 RDRAU !T:-9.5,8.5 
1188 RDRAU IT:8,2.25 
1118 RDRAU !T:e.3,6.23 
1128 RDRAU tT:8.25,8.75 
1138 RDRAU IT:t.75,8.25 
1148 RDRAU tT: 13, 1.5 
1158 RDRAU IT:15,8.5 
1168 RDRAU IT:8. 75,-1 
1178 RDRAU IT:l.25,-18 
1188 RDRAU IT:6.5,-3.5 
1198 RDRAU IT:-e.5.-l 
1288 RDRAU !T:-17,-3.75 
1218 RDRAU IT:-l,e 
1228 RDRAU IT:-3.5,8.5 
1238 RDRAU tT:-5,2.25 
1248 RMOUE IT:5,-2.25 
1238 RMOUE IT: -1 . 5, -7. 75 
1268 RMOUE IT:4.75,1.5 
1278 RMOUE IT:1.25,3.73 
1288 RDRAU IT: -28. 25, 8. 25 
1298 RMOUE IT: -8. 23, 1 . 73 
1388 RDRAU 91: 14,-5.25 
1318 RORAU »T:6,-3.5 
1328 RDRAU tT:8.5,-l 

1338 RMOUE IT:-8.23,1 
1348 RDRAU IT: 1 7, 3 
1338 RHOUE 9T:-0.3,-0.3 
1368 RDRAU tT:8.5,8.23 
1378 RDRAU IT:8,8.25 
1388 RDRAU ITl-6. 75,3.5 
1398 RDRAU !T:-1,18 
1489 RDRAU IT: -8. 75, 8. 75 
1410 RDRAU tT: -15. 25, -8.5 
1428 RMOUE IT:l,8.75 
1438 RDRAU IT: -1,-8. 75 
1448 RDRAU IT: -0. 25, -8. 75 
1430 RDRAU IT:t.25,-l2 
1468 RDRAU IT:17,2.3 
1478 RMOUE IT:8.23,-8.73 
1488 RDRAU IT." 3. 73, -2. 25 
1498 RDRAU IT:-l,73,-8.25 
1388 RDRAU IT:-3.3,2.25 
1518 RDRAU tT: 1.5,8. 23 
1528 RMOUE IT: -2. 25, -8. 5 
1538 RDRAU IT:-11 # -1.73 
1348 RDRAU IT:3,-2.23 
1558 RDRAU tT:3,8.3 
1568 RDRAU fT:8.5,-9.5 
1378 RDRAU !T:4.73,8.73 
1388 RDRAU tT:-8.3,8.5 
1598 RDRAU IT:3.5,8.5 
1688 RDRAU IT: -3. 25, 2. 25 
1618 RMOUE IT:-8. 75,3.5 
1628 RDRAU IT:-8.5,-8. 12 
1638 RDRAU IT:-8.75,7 
1648 RDRAU IT:8.3,8 
1650 RDRAU IT:8.73,-6.87 
1668 RMOUE IT:8.75,8.25 
1678 RDRAU tT: 1,8. 12 
1688 RDRAU IT:-8.12,8.75 
1698 RDRAU IT:-l,-8. 12 
1789 RDRAU IT: 8. 12, -8. 75 
1718 RMOUE IT:-8.23,3 
1728 RDRAU IT: 1,8. 12 
1738 RDRAU IT: -8. 12, 8. 73 
1748 RDRAU IT:-1,-0.12 
1730 RDRAU IT:8. 12, -0. 75 
1768 RMOUE IT: -8. 25, 1.5 
1778 RDRAU IT: 1,8. 12 
1788 RDRAU tT: -8. 12, 8. 75 
1798 RDRAU IT:-1,-8.12 
1880 RDRAU IT:|. 12,-8.73 
1810 RMOUE tT:-8.25,1.5 
1820 RDRAU IT: 1,8. 12 
1838 RDRAU IT:-8. 12, 8. 73 
1848 RDRAU IT:-1,-8.12 
1838 RDRAU IT:8. 12, -8. 73 
1868 RMOUE IT: -3.23, 8. 23 
1878 RDRAU IT: -8. 25, 8. 25 
1888 RDRAU IT:-9.5,-8.5 
1898 RDRAU IT: -8. 25, -8. 25 
1980 RDRAU IT:8.3,-8.25 
1918 RORAU IT:8.25,-8.25 
1920 RDRAU IT:9.75,1.25 
1930 RDRAU !T:8.25,0.5 
1940 RDRAU IT: -8. 75, 7. 25 
1950 RETURH 
1960 REM 
1970 GOSUB 2728 
1980 A-8 
1998 C 1-31 
2888 MOUE !T:8,155 
2810 PRIHT IT! 
2023 Z9-9 
2939 FOR I-l TO CI 
2040 READ C» 

2030 IF C1021 THEH 2070 
2969 PRIHT IT:" 

2065 REHtStIF 29-0 THEH 2070 

2066 REM m PRIHT IT: 
2070 LET S-t.33 

2080 GOSUB 2849 

2003 IF I-Cl THEN 2100 

2090 PRIHT IT: 

2198 HEXT I 

2101 29-1 

2119 IF Cl-21 THEN 2130 

2120 HOME IT: 



11 



2139 
2148 

2139 
2168 
2178 
2189 
2199 
2289 
2218 
2229 
2239 
2249 
2239 
2269 
2263 
2278 
2288 
2299 
2399 
2318 
2329 
2339 
2349 
2339 
2369 
2378 
2389 
2399 
2499 
2418 
2429 
2438 
2449 
2443 
2439 
2468 
2478 
2489 

24se 

2389 
2318 
2328 
2338 
2548 
2545 
2538 
2568 
2378 
2388 
2598 
2596 
2688 
2619 
2628 
2633 
2648 
2639 
2633 
2 728 
2738 
2748 



LET Cl-21 
CO TO 2936 

EHD 
REH 

REN 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



THE TWELVE DAYS Of CHRISTMAS" 

OM THE FIRST DAY OF CHRISTMAS TEKTRONIX SENT TO HE. A" 
BRAMO HEH 4931." 

OH THE SECOND DAY OF CHRISTMAS TEKTROHIX SENT TO HE," 
TWO BLAHK TAPES, AMD A BRAHD HEW 4931.' 

'OH THE THIRD DAY OF CHRISTHAS TEKTROHIX SENT TO HE," 
THREE BEARCAT PROGRAMS. TWO BLAHK TAPES, AHD A ■ 
BRAHD HEW 4951." 

'OM THE FOURTH DAY OF CHRISTMAS TEKTROHIX SEHT TO HE," 
FOUR HEHSLETTERS. THREE BEARCAT PROGRAMS, TWO BLANK- 
TAPES, AND A BRAHD HEW 4931." 



DATA "OH THE FIFTH DAY OF CHRISTMAS TEKTROHIX SEHT TO HE," 
DATA ' FIUE ROLLS OF PAPER, FOUR NEWSLETTERS, THREE BEAR-" 
DATA • CAT PROGRAMS, TWO BLAHK TAPES, AHD A BRAHD HEW 4831." 
DATA "OH THE SIXTH DAY OF CHRISTMAS TEKTRONIX SEHT TO HE," 
DATA " SIX DIGITAL PLOTTERS, FIUE ROLLS OF PAPER, FOUR- 
DATA " HEHSLETTERS, THREE BEARCAT PROGRAMS, TWO BLAHK TAPES, 
DATA " AMD A BRAHD HEW 4931." 

DATA "ON THE SEUEHTH DAY OF CHRISTMAS TEKTROHIX SEHT TO ME, " 
DATA " SEUEH DIGITIZERS, SIX DIGITAL PLOTTERS, FIUE ROLLS- 
DATA " OF PAPER, FOUR HEHSLETTERS, THREE BEARCAT PROGRAMS,' 
DATA • TWO BLAHK TAPES, AHD A BRAHD HEW 4851." 
DATA -ON THE EIGHTH DAY OF CHRISTMAS TEKTROHIX SEHT TO HE,' 
DATA " EIGHT LIHE PRIHTERS, SEUEH DIGITIZERS, SIX DIGITAL- 
DATA • PLOTTERS, FIUE ROLLS OF PAPER, FOUR NEWSLETTERS," 
DATA ' THREE BEARCAT PROGRAMS, TWO BLAHK TAPES AHD A BRAND" 
DATA " HEW 4851." 

DATA "OH THE NINTH DAY OF CHRISTMAS TEKTROHIX SEHT TO HE," 
DATA " MIHE DISC UNITS, EIGHT LIHE PRIHTERS, SEUEH ■ 
DATA " DIGITIZERS, SIX DIGITAL PLOTTERS, FIUE ROLLS OF- 
DATA " PAPER, FOUR HEWSLETTEPS, THREE BEARCAT PROGRAMS," 
DATA ' TWO BLAHK TAPES, AHD A BRAHD H*EW 4851." 
C'ATA "OH THE TENTH DAY OF CHRISTMAS TEKTROHIX SEHT TO " 
DATA " ME, TEN WORKING JOYSTICKS, HIHE DISC UHITS, EIGHT" 
DATA " LIHE PRIHTERS, SEUEN DIGITIZERS, SIX DIGITAL- 
DATA " PLOTTERS, FIUE ROLLS OF PAPER, FOUR HEHSLETTERS," 
DATA " THREE BEARCAT PROGRAMS, TWO BLAHK TAPES, AHD A" 
DATA " BRAHD NEW 4831." 

DATA "OH THE ELEUEHTH DAY OF CHRISTMAS TEKTROHIX SEHT TO" 
DATA " HE, ELEUEH HARD COPY UNITS, TEH WORKING JOYSTICKS." 
DATA " HIHE DISC UNITS, EIGHT LINE PRIHTERS, SEUEN" 
DATA " OIGITIZEPS, SIX DIGITAL PLOTTERS, FIUE ROLLS OF" 
DATA " PAPER, FOUR NEWSLETTERS, THREE BEARCAT PROGRAMS,'' 
DATA " TUO BLANK TAPES, AND A BRAHD HEW 4931." 
DATA "OH THE TWELFTH DAY OF CHRISTMAS TEKTRONIX SEHT TO" 
DATA * HE, TWELUE CARTRIDGE TAPE UNITS, ELEVEN HARD" 
OATA " COPY UNITS, TEH WORKIHG JOYSTICKS. HIHE DISC" 
DATA ' UHITS, EIGHT LIHE PRIHTERS, SEUEH DIGITIZERS, SIX- 
DATA " DIGITAL PLOTTERS, FIUE ROLLS OF PAPER, FOUR HEWS-" 
DATA " LETTERS, THREE BEARCAT PROGRAMS, TWO BLAHK TAPES," 
DATA " AHD A BRAND HEW 4831." 

REM THIS ROUTINE INITIALIZES THE TABLES USE BY THE 
REM CHARACTER GENERATOR. IT SHOULD BE EXECUTED *OHCE"> BEFORE 
REM THE CHARACTER GENERATOR IS USED. <l.t. G0SU8 9888> 



EDITOR'S NOTE: STATEMEHTS 2758 THRU 4798 ENCOMPASS 4951 APPLICATIONS 
LIBRARY PROGRAM 31/89-8812/8, "LEROY CHARACTER GEHERATOR.- 




RA NDOM SNOW FLA KES generated from a program contributed by 
Mark Mehal, Tektronix Systems Analyst, Chicago. 



1 REM default device it the screen. 

2 GO TO 139 

3 REM user definable key 1 will use the plotter. (unit-l> 

3 U-I 

6 U-139 

7 GO TO 179 

199 HEH mowflake pro«r«* 12/22'?* (almost chnst«ai> mm 

118 REH version 1.2 (random rotation and faster) 1'6'76 

128 REM Mark Hehall Chicago Field Office 

139 1HIT 

149 PACE 

159 REM U is the unit nunber M-plotttr, 32"scrcen>. 

168 U-32 

178 REM U is the Maximin viewport Minus 29 < 139«olotter, 119>tcrccn>. 

169 U»tl9 

199 SET DEGREES 



210 
220 



388 
318 
328 
338 

-2? 

768 
379 
380 
398 
488 
418 
4 28 
438 
440 
458 
468 
478 
458 
498 
588 
518 
328 
538 
540 



559 
688 
610 



c60 

678 
680 
690 
700 
710 

729 

739 
748 
739 
769 
779 
788 
790 
889 
810 
829 
838 



UtHOOW -20,28,-28,28 
L -19 

REH R1 is the r.uHber of Hakes. <29 to 35) 

R1*RMD<-1 ;I28*15 

FOP 0«1 TO Rl 

REM XI, Yl ii the random location. 

Xl«PHD<-l>tU 

ri-PMO'-l >i88 

REH A ii the rotation ant It of the flake 

A-SHD'-I )t€0 

ROTATE A 

"1EWP0R7 Xl,Xt*28,Yt,Yl*29 

REH- j is the number of "jpikei". 

JMHT'RHD'-i/*4*3> 

DIH y.fjt J-4>, Y<3* J-4) 

M-L.MJ-1/ 

REM H is the *a*i*un length of a "»eiWe". 

REH H-TAM<39>t.3tl/SIH<69>*2 (if uou care.) 

H-8.66666671L tar../ 

FOR I»l TO 3SJ STEP 3 

REH D2 is the cumulative distance fro* center 

D2-DU<(I-l>/3> 

REH H is the actual "loike" Jen*th. 

H«<H-HtA8SCD2-L'2)'(9.3*L>>tRHD(-l) 

REH novt out a distance d 

X<I>«01 

Y(Iy«8 

IF I>4tJ THEH 618 

REH calculate x,y at 69 dejree ansle. 

X( IM>-8.3tM 

Y* I*l>«0.866823tH 

REH return to center line. 

X(I»2/-X(i + l) 

YM*2>«-Y(I*l> 

REH draw lower spike. 

XH*3>«X( 1*1/ 

YCI*3>--YM*1) 

REH "-eturn to -center line. 

y,: |m,.-vm*1 > 

Y, !»*..yi|»| , 

NEXT I 

FOR R*8 TO 388 STEP 68 

»OTATE P*A 

HOUE *u:8,a 

FT'RAU *u:>:,y 

HEXT 9 

*EH rej«f rotation angle to orisinal. 

ROTATE A 

REH P2 is the nun&er of concentric heyajons. 

&2*RND>-1 -t6 

FOR J=t TO R2 

frEN S is .the sire of the hexason. 

S"ffND'<-l>tJtl.S 

HOVE eu:8,8 

RflOUE 9U:S,8 

REH this looo draw a hexason s units blf. 

FOR I«8 TO 369 STEP 68 

ROTATE A4I 

RDRAW eU:S*-8. 3,3*9.866823 

HEXT I 

HEXT J 

DELETE X.Y 

HEXT Q 

EHD 




( 



i?rom Ue fo5/ 
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4051 Graphic System Publications 

By Les Brabetz 

The following table contains a summary of all current manuals related to the 4051 Graphic System. The correct 
nomenclature, latest published date, and Tektronix part number are included. This list contains all manuals 
published up to August 15, I977. 

Contact your local Tertronix office for prices, availability, and to order any of these publications. 



4051 and RELATED PERIPHERAL MANUALS 



Manual 



STANDARD 



405 1 Graphic System Operator's 
405 1 Graphic System Reference 
Reference Guide to 405 1 BASIC 
PLOT 50: Introduction to Pro- 
gramming in BASIC 
PLOT 50: Introduction to Graphic 
Programming in BASIC 



SERVICE 



Publication Date 



JAN 76 
JAN 76 
3rd Printing 
DEC 75 

DEC r 5 



Part # 



070-1940-00 
070-2056-00 
070-2142-00 
070-2058-00 

070-2059-00 



4051 Graphic System Service Vol. 1 


j MAY "7 


j 070-2065-00 


4051 Graphic System Service Vol. 2 


1 MAY "1 


j 070-2286-00 


#067-0746-00 System Test Fixture 


JUN "7 


I 070-2304-00 

i 


ROM PACK 


4O51R01 Matrix Functions 


JUN 76 


070-2127-00 


4051R05 Binary Program Loader 


AUG 76 


070-2171-00 


405 1R06 Editor 


FEB 77 


070-2170-00 


4051E01 ROM Expander Instruction 


DEC 76 


070-2215-00 


INTERFACE 


4051 Option 1 Data Communications 






Interface 


MAR 77 


070-2066-01 


4051 Option 10 RS-232 Printer 






Interface 


JUN 76 


070-2119-00 


4051 GPIB Hardware Support 


MAR 77 


070-2270-00 


4051 GPIB Application Support 


APR 77 


070-2307-00 


SOFTWARE 


4050 A01 PLOT 50: Statistics Vol. 1 


DEC 75 


062-1854-00 


4050A02 PLOT 50: Statistics Vol. 2 


JUN 76 


062-1855-00 


4050A03 PLOT 50: Statistics Vol. 3 


DEC 75 


062-1856-00 


4050A04 PLOT 50: Mathematics Vol. 1 


NOV 75 


062-1857-00 


4050A05 PLOT 50: Mathematics Vol. 2 


DEC 75 


062-1858-00 


4050A06 PLOT 50: Electrical Engineer- 






ing Vol. 1 


DEC 75 


062-2280-00 


4050A07 PLOT 50: Graph Plot 


MAR 77 


070-2288-00 


4050A08 PLOT 50: General Utilities 






Vol. 1 


MAR 77 


070-2287-00 


4050A09 PLOT 50: Business Planning 






and Analysis 


OCT 76 


070-2226-00 


4050A10 PLOT 50: Statistics Vol. 4 


MAR 77 


070-2214-00 
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Manual 



Publication Date 



Part No. 



PERIPHERAL 



4631 



4631 Hard Copy Unit Users 
4631 Hard Copy Unit Service 



SEP 74 
DEC 76 



070-1830-01 
070-1831-01 



4641 



4641/4641-4 Character Printer 

Operator's 
4641/4641-4 Printer Service 



OCT 76 
NOV. 76 



070-21 10-00 

070-2111-00 



4662 



4662 Interactive Digital Plotter 

User 
4662 Interactive Digital Plotter 

Service 
#067-0829-00 4662 Test Tape 

Operators 



DEC 76 
JAN" 77 
JUN 77 



070-1932-01 
070-1933-00 
070-2366-00 



4924 



4924 Digital Cartridge Tape Drive 

Operator's 
4924 Digital Cartridge Tape Drive 

Service 
49.24 Reference Guide 



SEP 76 

NOV 76 
MAR 77 



070-2128-00 

070-2131-00 
070-2302-00 



4952 



4952 Joystick. Option 2 



070-2098-00 



4956 



4956 Graphics Tablet Operator's 
4956 Graphics Tablet Service 



FEB 77 
FEB 77 



070-2210-00 
070-2211-00 



Tektronix 

COMMIT TEO TO EXCELLENCE 



14 



©a$rc 
^ fcifS 



j> 





Speed and Memory Savings 
Suggestions 

by Han Klinkspoor, Tektronix Datatek 
Badhoevedorp, The Netherlands 

Speeding Up Proceedings 

*Take non-relevant statements out of loops. For exam- 
ple, consider the following listing: 

100 For 1=1 to 10 
110 Print Using 120:1 
120 Image .... 
130 Rem 

140 Next I 

This loop can be speeded up by moving lines 120 and 130 
outside the loop. (Overhead is .5 msec line + processing 
time.) 

^Minimize Jumps 
*Use Subroutines 

* Avoid recalculation of the same variable 

* Avoid unnecessary numeric computations. For exam- 
ple: 

110 Print 5*10, I should be 110 Print 50, I 

Recover Your Memory 

Delete data statements when they are no longer needed. 
For example: 

158 DATA 

168 DATA 

178 DATA 

188 DATA 

198 READ A,B,C*,F 
288 DELETE 138,288 

Save Your Memory 

When you need a Waiting Loop, instead of using a 
FOR NEXT LOOP such as 

FOR I»l TO 1888 
NEXT I 



try using the following: 

PRINT USING M28<""*-)S": 

When you need a Horizontal Line, instead of usine a 
FOR/ NEXT loop such as 



18888 FOR 1-1 TO 72 
18818 PRINT •_■; 
18828 NEXT I 



try using the following: 

18888 PRINT USING "72<- M ,, _" M ) " : 

This method not only saves memory, but is faster as well. 

Correct Tape Inserted? 

by Leslie Diane Sivak 

Florida Solar Energy Center 

Before MARKing a file (or files) on a tape cartridge, 
make sure that you have the correct tape cartridge in the 
4051. 

(The author of this bit speaks from experience. She says 
she didn't check, destroyed someone else's file, and was 
lucky to leave the computer room alive! — ed.) E 



4051 Applications Library 
Program Abstracts 

Documentation and program listings of these programs may be ordered 
for $15.00 each. Programs will be put on tape for an additional $2.00 
handling charge per program and a $26.00 charge for the tape cartridge. 
(The program material contained herein is supplied without warranty or 
representation of any kind. Tektronix-, Inc. assumes no responsibility 
and shall have no liability, consequential or otherwise, of anx kind 
arising from the use of this program material or any part thereof) 

Please use the Applications Library Order Form. Order forms are 
included in the Membership Packet and are available from your local 
Tektronix Sales Engineer. Orders outside of the U.S. must be ordered 
through the local Tektronix sales office. E5 

ABSTRACT NUMBER: 51/00-5402/0 

Title: Globe Rotation 

Author: Donald N. Sweetnam 

Jet Propulsion Lab 

Pasadena, CA 
Memory Requirements: 8K 
Statements: 146 

This program allows a user to view a global representa- 
tion of a planet or spherical surface from any direction. 
This is accomplished by generating a reference globe and 
rotating about any or all of the three axes. 
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The reference globe is generated in a right hand Cartesian 
coordinate system with the Z-axis pointing toward the 
north pole, the X-axis pointing through the prime (0) 
meridian and the Y-axis completing the system. The 
reference globe is positioned on the 4051 screen with the 
Z-axis up, the X-axis to the left and the Y-axis toward the 
user. The step to create the reference globe need only be 
done once since the coordinates are saved on tape. 

Desired rotations are then chosen, the rotations made, 
and the resulting globe projected onto the display. 
Longitude lines are provided every 30 degrees as are 
latitude lines. Longitude coordinates are plotted every 6 
degrees and latitude coordinates every 3 degrees. Hidden 
coordinates are not displayed. 

The program employs extensive use of the User Definable 
Kevs. 



written to another file as well as printing to the screen and 
copying. All but approximately eight lines will be 
recovered with the original statement numbers intact. 

The program can also be used to recover program \ 
statements which were lost due to other circumstances, 
but the chances of success are smaller. 



ABSTRACT NUMBER: 51/00-1403/0 



Title: Analysis of Logic Circuit Behavior 

Author: K. J. Orford 

Physics Department 

Durham University 
Memory Requirements: 16K 
Peripherals: None 
Statements: 325 



ABSTRACT NUMBER: 51/00-8014/0 

Title: Program File Recovery 

Memory Requirements: 32K 
Peripherals: 463 1 Hard Copy Unit 
Statements: 73 

This program was designed to recover a file which was 
"lost" due to a user powering up the 405 1 , inserting a tape, 
typing FINd (n) and then inadvertently typing SAVe 
instead of OLD. The program is recovered line by line and 



This program stores the interrelationships of logic 
elements (gates, latches, etc) in a complex circuit, and 
predicts the state of all the elements a short time later. The 
program then has three optional modes. It can stop and 
print out, or continue and predict the next state and print 
until stopped, or continually predict subsequent states 
and show a selected number (up to 12) as waveform on the 
display. The three modes are selected by User-Definable 
Keys. Up to eight input lines may be used and changed at 
will during execution by pressing the User-Definable 
Kevs. 



c 
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Tektronix 

COMMITTED TO EXCELLENCE 



TEKTRONIX, INC. 
Information Display Group 
Applications Library 
Group 451 
P.O. Box 500 
Beaverton, Oregon 97005 



ADDRESS CORRECTION REQUESTED 



c 



